2755 PRINT"L ------------------·- ·»—T---¢ --------- 4“
2715 FUR LI1 TD M
2725 PRINT"I KANAL “K€Llj" IHHZl";R(L)TAB(3B>“I"
2735 GU8U53175
2745 PRINT“EEHPFINDL. E 25-D8 BINADI UU|"T5Bf35h
2755 FRINTEtL)TAB(38)"I"
2765 GUSUB 3175
2775 PRINT"|S/R HHSTAND 5 1-HU RF l D8|"TAB(35>}
2785 PRINT 8(L)TRE<38)"I"
2795 GUGUE 3178
2855 PRINT"IKLIRR EEI 5 1 KH2 I KI"ThB(35)
2318 PRINT D(L)TAH(3S}“I"
2825 GUSUH 3175
2835 PRINT"F--—— ----—---—-——---—— ——— ——--—-—---—-- 4"
2845 NEKTE
2558 PRINT"IDEMDD.FRERUENZ·GANG “T¤B(38)“y"
2365 FRINTTj"ThH<38}"|"
2875 Y$=".1!.5,1,1.5,2.7,3,6"
2585 R¤76:5DSUB9555
2895 FDRN=1TDY9
2955 FRINT"l "X(25+NJTHB(9)"KHZ I D3I"TAB<35)Y(N)TnE(3B}"V
2915 NEXT
2925 PRINT"I"TA8€24>"|“TRB(25)"I"TRB(58)"l"
2921 Y1M6!Y=5:R¤25:GUSUB9555
2926 R=15:Y=5IGU8U39555
2927 R=25:G5SUH 95555ITYl=Y
2925 Rw15:Y=1IGDGUE9555
2929 IF Y1j18 THEN GUTB 2945
2935 Y$=“RHUSCHSPERRE EIN !":R=87:GU8U59855 ‘
2945 PRINT"I55UELCH HYSTERESE I DE|"TAB(35h
2955 R=72dGDSU59555
2965 PRINTYTAB(35)"I"
2975 PRINT"I55UELCH DEERER PEGEL I UUI"TAE(35)Y2TAH<38)“l"
2985 PRINT“|5GU£LCH UNTERER PEGEL F UUl“TAH(35)Y1TAB(38)"I"
2981 Y1¤6:Y¤1!R=25LGDSUB9555
2922 F»’=15:‘•'=8:lT$1ZISlJE¢9555
2983 R=285GU5UB 9555IY1¤Y
2984 R=15:Y=1:GG8UE 9855
2985 IF Y1>18 THEN GUTD 3855
2995 Y$¤"RAU5EH5FERRE AUS !":R=871GDSUB9555
3555 PRINT"¥ ------------- —-·——----—#———1——-————~—J“
3515 Y$="HHRDHGPY = H I STEP = S 1 RESTHRT = R"IR=87IG5SUB9558
3825 IFY1$="H"THENR=93:G88U59555
3535 IFY1$="8"THENEND
3545 IFY1$=“R"THEN175
3555 GOTG3135
3565 :
3575 REMIIXt*X*********#*##*l*$#*##
35H5 REH* *
3595 REM! T I T L E *
3185 REM* *
3115 REH***£*X*tXX*KX*KKKIK¥*tXIlX*
3125 PRINT"H» ------- — -----— ~——~---— -—-- -— ——-———- -——"
3135 PRINT“| HANETSCH AG CHUR PRUEFFRUTUKDLL I"
3145 PRINT"FIXXI*XiIXKIXXK*#**#**X**#*******#***#I"
3155 GUSUB 3535 ‘
3165 RETURN
3175 5=PEEH(33726> .
3135 IF K5$ gp "Y" THEN RETURN ·
3195 IF 5=32 THEN RETURN ;
3255 Y1¤=2:Y=5:R=2B:GIJSLIB 9555 :
3215 R¤93:GD3UB 9555 I
3225 5PEN1,235 g
3235 FUR I = 1 TD 4 i
3255 PRINT%1.CHR$(27);DHR$(15Jj [
3255 HOLD 255 [
3265 NEXT I |
8275 PRINT¥1,DHR§(27};CHR$<28}I Q
3235 CLOSE 1